100 IFA=0THENA=1:LOAD"INPUT.OBJ",8,1
110 PRINT"[147]":POKE53281,1:PRINT"ENTER YOUR NAME- ";
120 LNG=22:TYP=0:GOSUB210
130 PRINT:PRINTT$:PRINT"ENTER THE PRICE-$";
140 LNG=5:TYP=1:GOSUB210
150 IFT1>99.99THEN140
160 PRINT:PRINTT1:PRINT:PRINT"MORE (Y/N)?"
170 WAIT198,1:GETK$
180 IFK$="Y"THEN110
190 IFK$<>"N"THEN170
200 END
210 POKE142,LNG:POKE143,TYP:SYS49152:IF(ST AND 1)THENT$="":T1=0
220 RETURN